unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ActnMan, ActnCtrls, Ribbon, RibbonLunaStyleActnCtrls,
  OleCtrls, SHDocVw, ActnList, StdActns, ButtonGroup, ComCtrls, pngimage,
  ExtCtrls, StdCtrls, ufraMain, RibbonActnCtrls, JvExStdCtrls, JvListBox,
  JvComboListBox, PlatformDefaultStyleActnCtrls, ufraBrowser, JvPageList,
  JvExControls, JvExComCtrls, JvPageListTreeView, JvExExtCtrls, JvSplitter,
  JvSyncSplitter, JvUninstallControls;

type
  TfrmMain = class(TForm)
    Ribbon: TRibbon;
    rbHelpAndSupport: TRibbonPage;
    RibbonGroup30: TRibbonGroup;
    ActionManager: TActionManager;
    RibbonGroup1: TRibbonGroup;
    RibbonGroup2: TRibbonGroup;
    RibbonGroup3: TRibbonGroup;
    actHelpGetStarted: TAction;
    actHelpGrouPage: TAction;
    actHelpForums: TAction;
    actHelpSubmitQuery: TAction;
    actHelpEmailus: TAction;
    actHelpRequestCallBack: TAction;
    actSocialFacebook: TAction;
    actTwitter: TAction;
    RibbonPage1: TRibbonPage;
    RibbonGroup4: TRibbonGroup;
    RibbonPage2: TRibbonPage;
    RibbonGroup5: TRibbonGroup;
    RibbonGroup6: TRibbonGroup;
    fraWebBrowser: TfraWebBrowser;
    RibbonGroup7: TRibbonGroup;
    RibbonPage3: TRibbonPage;
    JvUninstallComboBox2: TJvUninstallComboBox;
    PageList: TJvPageList;
    pageBrowser: TJvStandardPage;
    pageTest: TJvStandardPage;
    Button1: TButton;
    rpTest: TRibbonPage;
    procedure actViewSoftwareInfoExecute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure actHelpGetStartedExecute(Sender: TObject);
    procedure actHelpGrouPageExecute(Sender: TObject);
    procedure actHelpForumsExecute(Sender: TObject);
    procedure RibbonTabChange(Sender: TObject; const NewIndex,
      OldIndex: Integer; var AllowChange: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.actHelpForumsExecute(Sender: TObject);
begin
Self.fraWebBrowser.WebBrowser.Navigate('http://www.prof-it-hosting.com/index.php/helpandsupport/forums/11-waptitude');
end;

procedure TfrmMain.actHelpGetStartedExecute(Sender: TObject);
begin
Self.fraWebBrowser.WebBrowser.Navigate('http://www.prof-it-hosting.com/index.php?option=com_content&view=article&layout=edit&id=29');
end;

procedure TfrmMain.actHelpGrouPageExecute(Sender: TObject);
begin
self.fraWebBrowser.WebBrowser.Navigate('http://www.prof-it-hosting.com/index.php/community/communitygroups/viewgroup/2-Waptitude');
end;

procedure TfrmMain.actViewSoftwareInfoExecute(Sender: TObject);
begin
ShowMessage('test');
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
self.fraWebBrowser.WebBrowser.Navigate('http://www.prof-it-hosting.com/index.php/starthere/mnuintroduction');
end;

procedure TfrmMain.RibbonTabChange(Sender: TObject; const NewIndex,
  OldIndex: Integer; var AllowChange: Boolean);
begin
if self.Ribbon.ActivePage.Index = self.rbHelpAndSupport.Index then
   Begin
   self.PageList.ActivePage := self.pageBrowser;

   End;

if self.Ribbon.ActivePage.Index = self.rpTest.Index then
  begin
    self.PageList.ActivePage := self.pageTest
  end;


end;

end.
